home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Avalon 6
/
Avalon_06_1995_Avalon_Side_A.d64
/
putt putt golf
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
13KB
|
434 lines
10 rem ********************
11 rem *** ***
12 rem ** putt putt golf **
13 rem *** ***
14 rem ********************
15 :
16 :
18 fortr=54273to54273+20:poketr,0:next:poke54296,15:gosub25000
20 gosub1000:rem instructions
30 print"[147]":poke53280,0:poke53281,0:gosub18110:gosub2000:rem setup
40 poke53280,7:poke53281,1:gosub3000:rem play
50 goto4000:rem !end!
60 end
70 :
1000 :
1001 :rem *** insts
1002 poke53281,1
1003 poke53280,1:print"[147] * * p u t t p u t t g o l f [146] * *
1010 [153]"poke"
1025 :
1030 [153]"welcome to the stuart country club! this beautiful nine-hole ";
1031 [153]"miniature golf course is open and waiting for you!":[141]25160
1035 :
1040 [153]"you should know the idiosyncrasies of the course before you play."
1041 [153]
1045 [153]"to putt the ball, you have to input which direction you want to";
1046 [153]" aim it."
1047 [153]"there are 8 directions, as shown below."
1048 [153]"your ball is always at the *star*"
1050 [153]:[153][163]17)"2 1 8":[153][163]17)"3 * 7":[153][163]17)"4 5 6"
1060 [141]25160:[153]:[141]17200
1070 [153]"load"
1075 [153]" * * m i n i a t u r e g o l f wait * *
1080 print"[151]then you must input how hard to hit the ball. the speed should ";
1081 print "be some number between 0 and 5."
1082 print"try a few speeds and see what happens!"
1090 print"it will take a few tries before you get the feel of how hard";
1095 print" to putt the ball!":gosub25160
1100 print"[151]also, there are four types of hazards onthe course. you should ";
1105 print"be aware of whatthey are and what affect they have on you ";
1106 print"and your ball...":gosub25160
1110 print"":gosub17200
1120 print"[147]"
1125 printtab(9)"- - h a z a r d s - -[151]"
1126 print:print
1130 print"blocks:[146] these are like walls. you must putt around them."
1135 print
1140 print"yellow traps[146] represent sand. your ball cannot penetrate through ";
1141 print"a sand trap. the penalty for landing in the sand is one stroke."
1145 print
1150 print"water:[146] like sand,these blue hazards will slow and stop your ball.";
1151 print" the penalty for landing in the water is one stroke."
1155 print
1160 print"uneven surfaces:[146] these red hazards causethe ball to roll in ";
1165 print"a direction which isunpredictable. there is no penalty ";
1166 print"forhitting this hazard."
1170 print"":gosub17200
1180 print"[147][152]"
1185 print" * * p u t t p u t t g o l f [146] * *
1186 [153]:[153]
1190 [153]"you are trying to sink the ball in as few tries as possible. ";
1191 [153]"the hole is the black square.":[141]25160
1195 [153]
1200 [153]"if you hit the ball too hard, it will jump over the hole and ";
1205 [153]"continue rolling.it may also change direction, so be sureto hit ";
1206 [153]"the ball just hard enough!":[141]25160
1210 [153]"":[141]17200
1990 [142]
2000 :
2001 :[143] *** setup
2002 :
2010 [134]ha(9,5):[129]i[178]1[164]9:[129]j[178]1[164]5:[135]ha(i,j):[130]:[130]
2011 [131] 0,0,0,0,2
2012 [131] 1,0,0,0,3
2013 [131] 0,1,0,0,3
2014 [131] 1,1,0,0,3
2015 [131] 0,0,0,1,3
2016 [131] 0,0,1,1,3
2017 [131] 1,0,1,0,3
2018 [131] 0,1,1,0,4
2019 [131] 0,0,1,1,3
2020 [134]di(8,2):[129]i[178]1[164]8:[135]di(i,1),di(i,2):[130]
2025 [131] 0,-1,-1,-1,-1,0,-1,1,0,1,1,1,1,0,1,-1
2030 plt[178]49152:[129]i[178]0[164]24:[135]c:[151]plt[170]i,c:[130]i
2031 [131]32,16,192,132
2032 [131]253,32,16,192
2033 [131]152,170,164,253
2034 [131]24,76,240,255
2035 [131]32,253,174,32
2036 [131]158,173,76,170,177
2040 [134]v(8):[129]i[178]1[164]8:[135]v(i):[130]:[131]-40,-41,-1,39,40,41,1,-39
2050 :
2055 [150] [165]co(x)[178][194](55296[170]bx[170]40[172]by[170]x)[175]15
2060 [150] [165]sc(x)[178][194](1024[170]bx[170]40[172]by[170]x)
2090 [142]
2100 [143] *** hole 1
2105 [141]2050
2106 [153]""
2110 [153][163]9)"stopnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew"
2112 [129]i[178]1[164]15
2115 [153][163]9)"get waitstopget"
2120 [130]
2125 [153][163]9)"stopcosnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewwaitlog"
2130 [153]""[163]18)" "
2135 by[178]16:bx[178]11[170][181](17[172][187](0)):[158]plt,bx,by:[153]"(NULL)";
2140 [142]
2200 [143] *** hole 2
2205 [141]2050
2206 [153]""
2210 [153][163]7)"stopnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew"
2212 [129]i[178]1[164]5
2215 [153][163]7)"get waitstopget"
2220 [130]
2221 [153][163]7)"get waitstopget"
2222 [153][163]7)"get waitstopget"
2223 [153][163]7)"get waitstopget"
2224 [153][163]7)"get waitstopget"
2225 [153][163]7)"get waitstopget"
2226 [129]i[178]1[164]6
2227 [153][163]7)"get waitstopget"
2230 [130]
2235 [153][163]7)"cosnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew newwaitlog"
2240 by[178]17:bx[178]9[170][181](15[172][187](0)):[158]plt,bx,by:[153]"(NULL)";
2245 [153]""[163]29)"stop "
2250 [142]
2300 [143] *** hole 3
2306 [153]""
2310 [153][163]7)"stopnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew"
2312 [129]i[178]1[164]5
2315 [153][163]7)"get waitstopget"
2320 [130]
2321 [153][163]7)"cos waitstopget"
2322 [153][163]7)"get waitstopget"
2323 [153][163]7)"get sys waitstopget"
2324 [153][163]7)"get sys waitstopget"
2325 [153][163]7)"get sys waitstopget"
2326 [153][163]7)"get sys waitstopget"
2335 [153][163]7)"get waitstopget"
2340 [129]i[178]1[164]4
2345 [153][163]7)"get waitstopget"
2350 [130]
2355 [153][163]7)"waitcosnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewwaitlog"
2360 [153]""[163]31)"stop "
2365 by[178]17:bx[178]9[170][181](15[172][187](0)):[158]plt,bx,by:[153]"(NULL)"
2390 [142]
2400 [143] *** hole 4
2406 [153]""
2410 [153][163]6)"stopnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew"
2412 [129]i[178]1[164]6
2415 [153][163]6)"get waitstopget"
2420 [130]
2421 [153][163]6)"get stopnewnewnewnewnewnewnewnewnew waitstopget"
2425 [129]i[178]1[164]4
2430 [153][163]6)"get stopwaitget get waitstopget"
2435 [130]
2440 [153][163]6)"get stopwaitget cosnewnewnewnewnewnewnewnewnewwaitlog"
2445 [129]i[178]1[164]3
2450 [153][163]6)"get stopwaitget"
2455 [130]
2460 [153][163]6)"cosnewnewnewnewnewnewnewnewnewnewnewnewwaitlog"
2465 [153]""[163]17)"sys cmdcmdcmdcmdcmdcmd cmdcmdcmdcmd "
2470 [153][163]24)" cmdcmdcmd cmdcmdcmdcmdcmd "
2475 [158]plt,32,10:[153]"stop "
2480 by[178]16:bx[178]8[170][181](10[172][187](0)):[158]plt,bx,by:[153]"(NULL)"
2490 [142]
2500 [143] *** hole 5
2506 [153]""
2510 [153][163]9)"stopnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew"
2512 [129]i[178]1[164]15
2515 [153][163]9)"get waitstopget"
2520 [130]
2525 [153][163]9)"stopcosnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewwaitlog"
2530 [158]plt,19,6:[153]"/lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenexp"
2535 [158]plt,22,4:[153]"stop "
2540 by[178]16:bx[178]11[170][181](23[172][187](0)):[158]plt,bx,by:[153]"(NULL)"
2590 [142]
2600 [143] *** hole 6
2605 [141]2050
2606 [153]""
2610 [153][163]7)"stopnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew"
2612 [129]i[178]1[164]7
2615 [153][163]7)"get waitstopget"
2620 [130]
2625 [153][163]7)"get stopnewnewnewnewnewnewnewnewnewnewwaitlog"
2630 [129]i[178]1[164]7
2635 [153][163]7)"get waitstopget"
2640 [130]
2645 [153][163]7)"cosnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewwaitlog"
2650 [158]plt,27,4:[153]"orcmd cmd/"
2655 [158]plt,20,5:[153]"cmdcmdcmdcmdcmdcmd cmdcmdcmdcmdcmd cmdcmdcmd "
2660 [158]plt,30,5:[153]"stop "
2665 by[178]16:bx[178]9[170][181](15[172][187](0)):[158]plt,bx,by:[153]"(NULL)"
2690 [142]
2700 [143] *** hole 7
2706 [153]""
2710 [153][163]7)"stopnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew"
2712 [129]i[178]1[164]4
2715 [153][163]7)"get waitstopget"
2720 [130]
2721 [153][163]7)"get stop waitnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewrnd"
2725 [129]i[178]1[164]4
2727 [153][163]7)"get stopwaitget"
2730 [130]
2735 [153][163]7)"stop newnewnewnewnewnewnewnewnewnewnew stopwaitget"
2740 [129]i[178]1[164]5
2745 [153][163]7)"stopget stopwaitget"
2750 [130]
2755 [153][163]7)"stopnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewwait"
2760 [158]plt,9,7:[153]" cmdcmdcmdcmd cmdcmdcmdcmd cmdcmdcmdcmdcmd "
2765 [158]plt,27,7:[153]" cmdcmdcmdcmdcmdcmd cmdcmdcmdcmdcmdcmd cmdcmdcmdcmdcmdcmdcmd "
2770 [158]plt,13,4:[153]"stop "
2775 by[178]16:bx[178]25[170][181](13[172][187](0)):[158]plt,bx,by:[153]"(NULL)"
2799 [142]
2800 [143] *** hole 8
2806 [153]""
2810 [153][163]6)"stopnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew"
2812 [129]i[178]1[164]6
2815 [153][163]6)"get waitstopget"
2820 [130]
2821 [153][163]6)"get stopnewnewnewnewnewnewnewnewnewnewnewnewnew waitstopget"
2825 [129]i[178]1[164]4
2830 [153][163]6)"get stopwaitget get waitstopget"
2835 [130]
2840 [153][163]6)"cosnewnewnewnewnewnewnewwaitlog get stopwaitget"
2845 [129]i[178]1[164]3
2850 [153][163]6)"get stopwaitget"
2855 [130]
2860 [153][163]6)"cosnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewwaitlog"
2865 [158]plt,28,2:[153]" "
2866 [158]plt,29,3:[153]" "
2867 [158]plt,30,4:[153]" "
2868 [158]plt,31,5:[153]" "
2869 [158]plt,32,6:[153]" "
2870 [158]plt,33,7:[153]" "
2875 [158]plt,13,3:[153]"sys cmdcmdcmdcmd cmdcmdcmdcmdcmd cmdcmdcmdcmd "
2880 [158]plt,13,10:[153]"stop "
2885 by[178]16:bx[178]27[170][181](10[172][187](0)):[158]plt,bx,by:[153]"(NULL)"
2890 [142]
2900 [143] *** hole 9
2905 [141]2050
2906 [153]""
2910 [153][163]7)"stopnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew"
2912 [129]i[178]1[164]9
2915 [153][163]7)"get waitstopget"
2920 [130]
2921 [153][163]7)"log * waitstopget"
2925 [129]i[178]1[164]5
2927 [153][163]7)"get waitstopget"
2930 [130]
2935 [153][163]7)"cosnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewwaitlog"
2940 [158]plt,19,2:[153]" "
2941 [158]plt,20,3:[153]" "
2942 [158]plt,21,4:[153]" "
2943 [158]plt,22,5:[153]" "
2944 [158]plt,23,6:[153]" "
2950 [158]plt,11,6:[153]"stop "
2955 [158]plt,14,5:[153]"^cmd(NULL)cmdexp"
2960 by[178]16:bx[178]21[170][181](15[172][187](0)):[158]plt,bx,by:[153]"(NULL)"
2990 [142]
3000 :
3001 :[143] *** play
3002 :
3010 [129]ho[178]1[164]9:bc$[178]""
3015 [153]"load";
3020 [145]ho[141]2100,2200,2300,2400,2500,2600,2700,2800,2900
3030 [153]"conthole number:"ho"par:"ha(ho,5)"score:"sc
3031 [153]:[153]"traps:":[139]ha(ho,1)[167][153]"water"
3032 [139]ha(h0,2)[167][153]"syssand"
3033 [139]ha(ho,3)[167][153]"uneven"
3034 [139]ha(ho,4)[167][153]"stopblocks"
3035 [153]:[153]"stop2 1 8":[153]"3 (NULL) 7":[153]"4 5 6"
3036 [158]plt,0,19:[129]i[178]1[164]5:[153]" ":[130]
3037 d$[178]"":[158]plt,0,20:[153]"def direction? (1-8) wait"
3038 [161]d$:[139]d$[178]""[167]3038
3039 dir[178][197](d$):[143]**ifdir<1ordir>8then3038
3040 [139]dir[177]0[175]dir[179]9[175]dir[178][181](dir)[167]3045
3041 [137]3036:[143]**print"direction is from 1 to 8 !":forpa=1to1500:next:goto3036
3045 [158]plt,0,19:[129]i[178]1[164]5:[153]" ":[130]
3046 d$[178]"":[158]plt,0,20:[153]" speed? (from 0-5) waitstop"
3047 [161]d$:[139]d$[178]""[167]3047
3048 sp[178][197](d$):[139]sp[179]0[176]sp[177]5[167]3047
3050 [139]sp[178][177]0[175]sp[179][178]5[167]3055
3051 [143]****print"the speed is from 0 to 5 ...":forpa=1to1500:next:goto3045
3055 uf[178]0:[143] clear uneven flag
3056 tf[178]0:[143] clear trap flag
3060 [158]plt,0,20:[153]" "
3100 x2[178]bx[170]di(di,1):y2[178]by[170]di(di,2)
3110 d2[178]v(di):co[178][165]co(d2):[139]co[179][177]5[176][165]sc(d2)[179][177]160[167]3120
3115 [158]plt,bx,by:[153]bc$" ";:bx[178]x2:by[178]y2:[158]plt,bx,by:[153]"(NULL)";
3116 bc$[178]"":[137]3900
3120 [139]co[178]0[175][165]sc(d2)[179][177]160[167][141]18236:[137]3200:[143] hit a wall
3121 [139] co[178]6[167][141]18290:[137]3300:[143] water
3122 [139] co[178]7[167][141]18290:[137]3400:[143] sand
3123 [139] co[178]2[167][141]18185:[137]3500:[143] uneven
3124 [139] co[178]0[167][141]18488:[137]3600:[143] the hole
3125 [143] we hit a block
3200 [139]di[178]1[176]di[178]3[167]di[178]di[170]4:[137]3100
3201 [139]di[178]7[176]di[178]5[167]di[178]di[171]4:[137]3100
3210 [145]di[173]2[137]3220,3240,3260,3280
3220 [139][165]sc(d2[170]1)[179][177]160[175][165]sc(d2[170]40)[179][177]160[167]di[178]6:[137]3100
3225 [139][165]sc(d2[170]1)[179][177]160[167]di[178]4:[137]3100
3230 [139][165]sc(d2[170]40)[179][177]160[167]di[178]8:[137]3100
3235 di[178]6:[137]3100
3240 [139][165]sc(d2[170]1)[179][177]160[175][165]sc(d2[171]40)[179][177]160[167]di[178]8:[137]3100
3245 [139][165]sc(d2[170]1)[179][177]160[167]di[178]2:[137]3100
3250 [139][165]sc(d2[171]40)[179][177]160[167]di[178]6:[137]3100
3255 di[178]8:[137]3100
3260 [139][165]sc(d2[171]1)[179][177]160[175][165]sc(d2[171]40)[179][177]160[167]di[178]2:[137]3100
3265 [139][165]sc(d2[171]1)[179][177]160[167]di[178]8:[137]3100
3270 [139][165]sc(d2[171]40)[179][177]160[167]di[178]4:[137]3100
3275 di[178]2:[137]3100
3280 [139][165]sc(d2[171]1)[179][177]160[175][165]sc(d2[170]40)[179][177]160[167]di[178]4:[137]3100
3285 [139][165]sc(d2[171]1)[179][177]160[167]di[178]6:[137]3100
3290 [139][165]sc(d2[170]40)[179][177]160[167]di[178]2:[137]3100
3295 di[178]4:[137]3100
3300 [139]tf[167]3310
3305 tf[178]3:sc[178]sc[170]1:[143] trap flag
3310 [158]plt,bx,by:[153]bc$" ";
3315 bx[178]x2:by[178]y2:[158]plt,bx,by:[153]"(NULL)";:bc$[178]""
3320 [137]3900
3400 [139]tf[167]3410
3405 tf[178]3:sc[178]sc[170]1:[143] trap flag
3410 [158]plt,bx,by:[153]bc$" ";
3415 bx[178]x2:by[178]y2:[158]plt,bx,by:[153]"sys(NULL)";:bc$[178]"sys"
3420 [137]3900
3500 [139]uf[167]3520
3505 uf[178]1:[143] uneven flag, have re rolled ball off course yet?...
3510 di[178]di[170]2[172][181](2[172][187](0))[171]1
3515 [139]di[178]0[167]di[178]8
3516 [139]di[178]9[167]di[178]1
3520 [158]plt,bx,by:[153]bc$" ";
3525 bx[178]x2:by[178]y2:[158]plt,bx,by:[153]"(NULL)";:bc$[178]""
3530 [137]3900
3600 [158]plt,bx,by:[153]" ":[158]plt,x2,y2:[153]" "
3601 [158]plt,x2,y2:[153]"stop ";
3602 di[178]di[170]2[172][181](2[172][187](0))[171]1
3604 [139]di[178]0[167]di[178]8
3605 [139]di[178]9[167]di[178]1
3606 sp[178]sp[171].5:[139]sp[177]0[167]x2[178]x2[170]di(di,1):y2[178]y2[170]di(di,2):[137]3110
3610 sc[178]sc[170]1:[137]3990
3900 :
3902 [139]tf[177]0[167]tf[178]tf[171]1:[139]tf[178]0[167]3910
3905 sp[178]sp[171].3:[139]sp[177]0[167]3100
3910 sc[178]sc[170]1:[137]3030
3980 [161]x$:[139]x$[178]""[167]3980
3990 [141]22480:[130]ho:[142]:[143]*** made the hole! go to next round.
4000 :
4001 :[143] *** end
4002 :
4005 [129]pa[178]1[164]200:[130]pa:[151]53280,2
4010 [151]53281,1:[153]"loadwait * * m i n i a t u r e g o l f wait * *poke"
4015 [153]:[153]:[153]:[153]
4020 [153]" t h e g a m e i s o v e r !":sd[178]400:[141]22480
4022 [141]25160
4025 [153]"on the par 27 course, you shot":[153]"a round of "sc". that is an"
4026 [153]"average of"[181](sc[172]100[173]9)[173]100"shots per hole.":sd[178]1:[141]22480
4030 [153]
4035 [153]" hope you enjoyed the game!":[141]25160
4040 ob$[178]" care to play again? (y or n)":[141]25080
4045 [161]pa$:[139]pa$[178]"y"[167]sc[178]0:ho[178]1:[137]40
4050 [139]pa$[178]"n"[167]4100
4055 [137]4045
4100 sd[178]1:[151]53280,0:[151]53281,0:[153]"load"
4105 [141]25070:[141]22480:[141]25120:[153]"":[128]
17200 [153]"def - - - h i t a n y k e y - - -on":[129]i[178]1[164]300:[130]
17201 [161]a$:[139]a$[179][177]""[167][153]"poke":[142]
17202 [153]" - - - h i t a n y k e y - - -on":[129]i[178]1[164]300:[130]:[137]17200
18109 [143] - computer sounds. change 'nt' in line 18117 for length.
18110 nt[178]0:sid[178]54272:[129]n[178]sid[164]sid[170]24:[151]n,0:[130]n
18113 [151]sid[170]6,240:[151]sid[170]15,18:[151]sid[170]18,16:[151]sid[170]24,5
18114 [151]sid[170]4,17:[151]sid[170]1,[194](sid[170]27):nt[178]nt[170]1
18115 [129]t[178]1[164]5:[130]t:[151]sid[170]24,15
18117 [139]nt[178]70[167]18119
18118 [137]18114
18119 [129]reg[178]sid[164]sid[170]23:[151]reg,0:[130]reg:[129]vv[178]15[164]0[169][171].1
18120 [151]sid[170]24,vv:[130]:[142]
18183 [143] - single tone. vary length by changing t in 18187
18184 [143] - vary attack/delay by changing (10) in 54277 on line 18185
18185 [129]l[178]54272[164]54276:[151]l,0:[130]:[151]54296,15:[151]54277,10
18186 [151]54278,248:[151]54273,248:[151]54273,17:[151]54272,37
18187 [151]54276,33:[129]t[178]1[164]100:[130]
18188 [151]54276,32:[142]
18234 [143] - beep. change t for length
18236 [151]54272,12:[151]54273,36:[151]54296,15
18237 [151]54278,240:[151]54276,33:[129]t[178]1[164]50:[130]
18238 [151]54276,0:[151]54276,32:[151]54276,0
18239 [142]
18288 [143] -down sweep sound. vary length with step # in 18294 (now -3)
18290 s1[178]54272:w1[178]s1[170]4:w3[178]s1[170]18:v[178]s1[170]24:pw[178]s1[170]27:pe[178]s1[170]20
18291 [129]i[178]s1[164]pe:[151]i,0:[130]
18292 [151]w1[170]1,17:[151]w1[170]2,251:[151]w3[170]1,187:[151]w2[170]2,140
18293 [151]v,143:[151]w3,17
18294 [151]w1,17:[129]i[178]200[164]20[169][171]3:[151]s1[170]1,i:[130]
18300 [151]w1,0:[151]w3,0:[129]t[178]1[164]300:[130]:[142]
18488 la[178]54273:[143] - plink sound - vary length with first dd:vary times with ll
18489 [129]la[178]la[164]la[170]10:[151]la,0:[130]:[129]ll[178]1[164]1
18490 [151]54296,15:[151]54291,8:[151]54292,8:f1[178]54287:f2[178]54286:w[178]54290
18491 [151]f1,21:[151]f2,31:[151]w,33:[129]dd[178]1[164]500:[130]:[151]f1,32:[151]f2,195
18492 [151]w,17:[129]dd[178]1[164]100:[130]:[151]w,0:[130]ll:[142]
22460 [143]
22470 [143] - triumph sound
22480 [151]54296,15:[151]54277,1:[151]54278,248
22490 [129]no[178]20[164]60[169]10:[151]54273,no
22500 [151]54272,47:[151]54276,17
22510 [129]t[178]1[164]sd:[130]t:[130]no
22520 [129]t[178]1[164]500:[130]:[151]54276,16:[142]
25000 [151]53280,15:[151]53281,0:[153][199](142)"load":[141]25070
25010 [153]" * p u t t p u t t g o l f wait *"
25020 [153]" instructions? ywaites or nwaito":[141]25160
25021 [141]25120:[141]22480
25030 [161]in$:[139]in$[178]""[167]25030
25040 [139]in$[178]"y"[167][153]"load":[137]20
25050 [139]in$[178]"n"[167][153]"load":[137]30
25060 [137]25030
25070 ob$[178]" c-64 version by bill britton"
25080 aa[178][195](ob$):[139]aa[173]2[179][177][181](aa[173]2)[167]a$[178]" "[170]ob$:[137]25080
25090 [129]v[178]1[164]aa[173]2:[153][163]19[171]v);[200](ob$,v);[201](ob$,v):[153]"on";
25100 [129]za[178]1[164]50:[130]za:[130]v:[153]:[141]25160
25110 [153]" ":[141]25160
25111 [142]
25120 [129]n[178]1[164]40:[151]1023[170]n,214:[151]55295[170]n,5
25130 [151]2024[171]n,214:[151]56296[171]n,5:[130]n
25140 [129]n[178]1[164]24:[151]1024[170]39[170]40[172]n,214:[151]55296[170]39[170]40[172]n,5
25150 [151]2023[171]39[171]40[172]n,214:[151]56295[171]39[171]40[172]n,5:[130]n:[142]
25160 [129]yx[178]1[164]40:[151]646,[187](1)[172]15[170]2:[153]" ";:[130]:[153]"waitpoke":[142]
29999 [143]*****twinkle letters
30000 [153]"":t[178]0:a$[178]" * * p l a y a g a i n ? * *"
30001 c[178]646:[129]i[178]0[164]5
30002 [151]c,i:[153]"on"a$:[129]d[178]1[164]50:[130]d:[130]i:t[178]t[170]1
30003 [139]t[178]3[167][137]30006
30004 [153]"on"a$
30005 [151]c,15:[137]30001
30006 [153]"pokeon"a$:[151]53281,1:[142]